10 DIMJ(26),JS(26):FORT=16TO26:READJ(T),JS(T):NEXT
15 POKE53281,5:PRINT"[154][147]","[144] CONTROL PITCHES  Y/N?":JJ=49192:JV=56321
20 GETP$:IFP$=""THEN20
25 POKE53281,0:POKE53280,0:PRINT,"[155]PLEASE WAIT . . ."
30 X$="":B$=X$+"BALL":S$=X$+"STRIKE":BS$=X$+"[144]      "
35 S=54272:FORL=0TO24:POKES+L,0:NEXT
40 V=53248:POKEV+16,128:FORT=0TO7:POKET+2040,192+T:NEXT
45 FORT=12288TO12414:POKET,0:NEXT
50 FORT=12736TO12798STEP3:POKET,252:POKET+1,0:POKET+2,0:NEXT
55 S3=196:TU=1:X=8:Y=3:GOSUB235:POKEV+39,1:POKEV+40,0:POKEV+46,4:POKEV+23,128
60 FORT=1TO5:READA,B:POKEA,B:NEXT:FORT=1TO8:READA(T),B(T),C(T),D(T),E(T):NEXT
65 IFG=1THEN80
70 FORT=12416TO12735:READA:POKET,A:NEXT
75 FORT=49152TO49648:READA:POKET,A:NEXT
80 SYS49478:PRINT"";:L$="[158][209][209][209][209][209][209][209]"
85 FORT=1TO3:PRINTL$;:NEXT:PRINT:C=C+1:IFC<5THEN85
90 L$="[129] ":K=K+1:IFK<4THEN85
95 PI=9:IN=1:GOSUB330:GOSUB280
100 POKEV+21,155:POKEV+6,25:POKEV+7,189:POKEV+14,82:POKEV+15,171:GOSUB310
105 POKEV+8,120:POKEV+9,189:POKE2043,194:POKE2044,S3
110 YY=0:XY=RND(0)*30+1:YX=RND(0)*3+2:IFYX<3THENYY=XY
115 PY=1:IFP$="N"THENPY=0:GOTO130
120 J1=31-(PEEK(JV)AND31):IFJ1<16THEN120
125 YX=JS(J1):POKE780,J(J1):JJ=49195
130 PRINTBS$:S3=S3+1:FORT=1TO300:NEXT
135 POKE2044,S3:IFS3<198THEN130
140 POKEV,120:POKEV+1,200:POKEV+31,0:POKEV+2,120:POKEV+3,215
145 POKE49406,192:POKE49663,1:POKEV+16,128:POKE2,YX:POKE49230,PZANDPY:SYS JJ
150 A=PEEK(V+1):X=ABS(37-(PEEK(V))):IFPEEK(2043)=195THEN165
155 IFA<198ORA>202THENPI=PI+1:PRINTB$:GOTO185
160 PRINTS$:GOTO185
165 IFX>9THEN185
170 IFA<198ORA>202THENSYS49547:GOTO185
175 X=19-X*2-YX:IFX<1THENX=1
180 GOSUB190:POKE2044,196:SYS49274
185 GOSUB195:S3=196:GOTO100
190 POKE251,X+YY:POKE254,X:RETURN
195 IFTU=-1THEN210
200 X=8:Y=3:GOSUB235:IFPEEK(V+16)=131ANDPEEK(V)>85THENBL=BL+1
205 GOTO215
210 X=3:Y=8:GOSUB235:IFPEEK(V+16)=131ANDPEEK(V)>85THENRE=RE+1
215 IFPI>1THEN230
220 TU=-TU:JV=JV+TU:PZ=PZ-TU:IFTU=1THENIN=IN+1:GOSUB330:IFIN>9THENGOSUB240
225 GOSUB230:PI=10:GOSUB280:POKEV,0:POKEV+1,0:POKEV+3,0:GOTO195
230 PI=PI-1:GOSUB330:RETURN
235 FORT=43TO45:POKEV+T,X:NEXT:POKEV+41,Y:POKEV+42,Y:RETURN
240 IFRE=BLTHENRETURN
245 FORT=55296TOT+240:POKET,0:NEXT
250 WI$="BLUE":IFRE>BETHENWI$="RED"
255 PRINT"[158]","  NICE GAME, "WI$"  "
260 PRINT""," PLAY AGAIN?  Y/N":POKE198,0
265 GETA$:IFA$=""THEN265
270 IFA$<>"N"THENCLR:RESTORE:G=1:GOTO10
275 END
280 POKES+5,35:POKES+6,247:POKES+24,15
285 POKES+12,35 :POKES+13,247
290 FORT=1TO8:POKES,B(T):POKES+1,A(T):POKES+7,D(T):POKES+8,C(T)
295 POKES+4,17:POKES+11,17
300 FORI=1TOE(T)*50:NEXT
305 POKES+4,16:POKES+11,16:FORI=1TO50:NEXT:NEXT
310 POKES+5,192:POKES+6, 64+7:POKES+1,6:POKES,59:POKES+4,128
315 POKES+19,15:POKES+20,248:POKES+14,99:POKES+15,159
320 POKES+12,15:POKES+13,247:POKES+7,128:POKES+8,8:POKES+18,128
325 RETURN
330 PRINT"","[157][157] BLUE    [157][157][157]"BL,,"[157][157] RED    [157][157][157]"RE
335 PRINT,,"[156][157][157]  INNING          [157][157][157]"IN:PRINT,,"[156][157][157]  PITCHES LEFT    [157][157][157]"PI
340 RETURN
345 DATA 99,3,0,3,255,3,,,99,2,0,2,255,2,,,99,4,0,5,255,5
350 DATA 12361,124,12364,248,12288,112,12291,240,12294,224
355 DATA 0,0,0,0,0,16,195,12,143,6,33,135,25,30,2,28,49,22,96,2
360 DATA 25,30,21,31,2,21,31,16,195,2,25,30,21,31,8,18,209,15,210,16
365 DATA 40,190,0,241,239,0,243,126,252,243,187,252,243,240,96,243,163,24,115
370 DATA 160,8,113,128,120,112,131,192,56,65,0,56,63,0,56,127,128,24,251
375 DATA 128,31,239,128,31,223,128,7,50,128,0,127,128,0,247,128,1,247,128
380 DATA 1,227,224,3,243,254,168,0,254,7,1,223,7,3,119,191,3,126,255
385 DATA 3,187,239,3,240,30,3,147,14,1,128,124,1,131,220,0,193,28,0
390 DATA 63,56,0,127,184,0,255,240,0,255,224,0,255,224,0,114,128,0,127
395 DATA 128,0,125,128,0,251,128,0,243,224,1,243,248,168,0,252,0,1,254
400 DATA 0,3,255,0,2,223,0,255,251,0,255,255,128,2,7,128,14,231,128
405 DATA 8,7,128,110,224,128,63,192,128,4,1,0,3,254,0,0,62,128,0
410 DATA 31,196,0,15,238,0,15,254,0,9,62,0,15,244,0,3,240,0,31
415 DATA 252,168,0,56,60,0,30,126,0,7,239,0,3,251,56,55,127,112,56
420 DATA 103,112,30,39,120,5,230,28,4,8,14,2,112,7,3,192,3,135,192
425 DATA 1,207,224,1,247,224,0,251,224,0,125,112,0,62,112,0,20,48,0
430 DATA 28,60,0,28,28,0,254,0,0,0,0,0,0,0,0,0,0,0,1
435 DATA 240,0,3,252,0,7,254,0,7,255,0,3,127,128,15,207,128,63,15
440 DATA 128,2,97,192,3,190,96,0,127,120,0,255,188,1,231,190,3,143,127
445 DATA 7,13,183,14,24,255,28,57,254,28,33,239,0,7,63,233
450 DATA 120,169,13,141,20,3,169,192,141,21,3,88,96,162,31,234,173,27
455 DATA 212,201,240,176,249,168,173,27,212,41,15,153,64,217,234,202,208,236
460 DATA 76,49,234,234,173,27,212,201,64,144,12,201,192,176,16,169,0,141
465 DATA 88,192,76,77,192,169,206,141,91,192,76,72,192,169,238,141,91,192
470 DATA 169,8,141,88,192,173,0,220,41,16,240,32,173,27,212,201,8,176
475 DATA 3,238,1,208,206,0,208,206,2,208,173,0,208,240,16,164,2,202
480 DATA 208,253,136,208,250,76,77,192,169,195,32,193,193,96,169,143,141,253
485 DATA 192,169,16,141,163,192,169,38,141,156,192,169,206,141,182,192,234,198
490 DATA 251,165,251,208,23,198,80,165,80,208,13,24,102,253,165,253,133,80
495 DATA 201,0,240,89,133,252,165,254,133,251,198,252,165,252,208,7,165,253
500 DATA 133,252,238,1,208,238,2,208,238,0,208,173,0,208,208,5,169,131
505 DATA 141,16,208,32,159,193,173,255,193,240,42,173,30,208,201,129,208,36
510 DATA 169,17,141,11,212,238,1,208,32,184,193,169,16,141,11,212,206,2
515 DATA 208,206,0,208,173,1,208,205,3,208,208,231,234,234,234,234,234,96
520 DATA 76,143,192,173,182,192,201,238,240,28,169,8,133,80,133,253,169,16
525 DATA 133,251,169,0,141,163,192,169,102,141,156,192,169,238,141,182,192,76
530 DATA 143,192,169,34,141,253,192,169,193,141,254,192,173,16,208,201,131,208
535 DATA 7,173,0,208,201,240,176,8,173,1,208,205,3,208,208,1,96,76
540 DATA 233,193,162,240,169,81,157,63,5,202,208,250,162,160,138,157,255,3
545 DATA 157,159,4,157,255,215,157,159,216,202,208,241,162,200,169,160,157,31
550 DATA 7,202,208,250,169,128,141,27,212,141,15,212,169,129,141,18,212,162
555 DATA 40,169,120,157,47,6,169,4,157,47,218,202,208,243,76,0,192,164
560 DATA 2,202,208,253,136,208,250,206,0,208,206,2,208,173,2,208,208,237
565 DATA 96,173,16,208,201,131,208,18,173,0,208,201,96,144,6,169,0,141
570 DATA 255,193,96,169,1,141,255,193,160,6,202,208,253,136,208,250,96,141
575 DATA 251,7,173,0,208,201,47,176,4,201,28,176,4,32,139,193,96,169
580 DATA 1,133,253,133,252,133,80,169,129,141,4,212,141,18,212,169,128,141
585 DATA 18,212,96,169,128,141,4,212,76,182,192